home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 3 / ct-rom iiib.zip / ct-rom iiib / WINDOWS / DIVERSEN / WINE02BX / MISC.ELC < prev    next >
Text File  |  1993-03-28  |  939b  |  18 lines
  1. ;;; compiled by @win386 on Sat Mar 13 01:39:17 1993
  2. ;;; from file c:/src/lucid-19.4/lisp/prim/misc.el
  3. ;;; emacs version 19.3 Lucid.
  4. ;;; bytecomp version 2.08; 27-aug-92.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (fset 'copy-from-above-command #[(&optional arg) "i└┴è┼yê╞╟!ê╚└xê╔ !ê\n½å╦\n!¬üd iW½£h╠U½ô═ i Z^╬\" ëi Z^Z¬ä╞╟!ê\n`è└ê`) `\\^{P)\nc+ç" [nil "" string n cc 0 backward-char 1 "     \n" move-to-column arg prefix-numeric-value 9 make-string 32] 5 "\
  14. Copy characters from previous nonblank line, starting just above point.
  15. Copy ARG characters, but not past the end of that line.
  16. If no argument given, copy the entire rest of the line.
  17. The characters copied are inserted in the buffer before point." "P"])
  18.